poweroftwo(arr, l) 
	var x = 1;
	var i = 0;
	FORdo:
	if not (l>i) goto FORdone;
		arr[i] = x;
		x = x * 2;
		i = i + 1;
	goto FORdo;
	FORdone:
	return 1;
end;
